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ABSTRACT 


The DECTAPE FORMAT GENERATOR FOR PDP-9/15 is a program to allow 
the creation of mark and timing tracks, block numbers, and an 
initial data pattern on a reel of virgin DECtape. Any block 
size greater than 4 and divisible by 2 (up to 6866) may be 
specified. Any number of blocks greater than 1 may be specified 
as long as there is sufficient room on tape. Normally, standard 
format is written on tape (256 words per block, 578 blocks, 
numbered 000000 to 001101 (octal) . All communication between 
the operator and the computer is done via the Teletype. 

PRELIMINARY REQUIREMENTS 

Storage 

This program uses all of 8K memory for program or as a buffer 
area to contain information written on a read from DECtape, 
if non-standard format is specified. Otherwise, only 4K of 
memory is used to store and run the program. 

Equipment 

Requires standard PDP-9 or 15 computer with TC02-TC15 E®Ct^)e 
Control Unit and at least one DECtape Transport. 

LOADING PROCEDURE 

The program is loaded from paper tape using the Macro-D“ 
tape loading procedure. 

1. Place tape in reader with blank tape over the read diodes. 

2. Set the ADDRESS Switches to 

3. Depress I/O RESET; set BANK MODE to a 1 (PDP-15) 

4. Depress READ IN key. 

5. Program will load and start itself. 

STARTING PROCEDURE 


The program, when loaded as discussed in section 3 is self-starting. 
However, if it is desired to restart the program, set 00100 in 
the ADDRESS switches, depress STOP, I/O RESET, then START. 

OPERATING PROCEDURE 


Upon starting, the program will type out its name: 

DECTAPE FORMAT GENERATOR - PDP-9, TC02, TU55 

Then it will start to interrogate the operator to ascertain his 
desires. 
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a. The first question asked the operator is to allow him 
to indicate on which transport he desires to mark tapes: 

MARK TAPE ON UNIT 

He responds by typing the decimal number (digit) of the 
proper transport and then any non-numerical character. 

b. The second question determines whether standard or 
non-standard format is to be written: 

DO YOU DESIRE STANDARD FORMAT (256 WORDS, 578 BLOCKS)? 

(TYPE Y-YES, N-NO) 

If standard format is to be written, the operator types Y; 
if non-standard format, he types N. 

c. Typing N in step b or f causes .a series of questions 
to be asked to determine proper block size quantity: 

HOW MANY BLOCKS? 

HOW MANY DATA WORDS? 

Checks are made to assure that the answers provided are 
legitimate; 

NUMBER OF BLOCKS MUST BE 2 OR MORE. 

BLOCK FORMAT REQUIRES 4 OR MORE DATA WORDS. 

NUMBER OF DATA WORDS MUST BE EVEN. 

TAPE IS NOT LONG ENOUGH. 

8K OF MEMORY CAN'T CONTAIN THIS SIZE BLOCK. 

d. The program will then type out operating instructions to 
allow the operator to ready the unit to mark tape:* 

SET SWITCH LABLED WRTM-NORMAL-RDMK TO WRTM AND ENABLE. 
WRITE ON SPECIFIED UNIT THEN STRIKE A KEY ON THE 
KEYBOARD. 

AFTER MOUNTING A VIRGIN TAPE AND TAKING 2 WRAPS ON 
TAKEUP REEL. 

A check is made to assure that the directions have been 
properly followed and, if not, an error message is typed out; 

SELECT ERROR, CHECK FOR THESE CONDITIONS: 

WRITE NOT ENABLED 
NON EXISTENT UNIT 
MULTIPLY EXISTENT UNIT 
SWITCH NOT IN WRTM POSITION 


* This printout may be suppressed by setting AC switch 0 to 1 (up) 
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e. After maiting one pass down the tape to write the mark track, 
further :.nstructions are typed to the operator:* 

SET SWITCH LABLED WRTM-NORMAL-RDMK TO NORMAL, THEN 
STRIFE A KEY ON THE KEYBOARD. 

If the tape has run off the reel, it should be remounted 
before the key is struck. 

f. Three more passes will be made on the tape to complete the 
marking and vigin pattern procedure, after which time the 
end of the tape will be allowed to run off the takeup reel 
and the format of the tape will be typed out: 

DONEl TAPE HAS MMMMMM BLOCKS (OCT) EACH NNNNNN WORDS 
(OCT) LONG 

The operator will then be asked if he wishes to mark another 
tape to this format: 

DO YOU DESIRE TO MARK ANOTHER TAPE TO THIS FORMAT 
(TYPE Y-YES N-NO)? 

If the operator types Y the program returns to step d, 
if he types N the program returns to step c. 

5.1 Details of Operation 

a. First the name of the program is printed on the teleprinter. 

b. The operator is asked to indicate the niimber of the transport 
to be used to mark tape. This number is checked to make sure 
that it is between 1 and 8. It is then moved into the 
proper bit position for combination into control words for 
the DECtape control. 

c. The operator is asked if standard format is desired. If it is 
the progreon proceeds to step f. If standard format is not 
desired, the program proceeds to step d. 

d. The operator is asked to type in the number of blocks to be 
written on tape. A check is made that at least 2 were 
specified. 

e. The operator is asked to type in the number of data words 
per block. The niamber is checked to make sure it is at 
least 4. It is then checked to make sure it is even, then 
that it is not too large (attempt to overflow 8K of memory) . 
Then check is performed to make sure that the number of marks 
required to be written on tape (number of blocks times number 
of data words+10, plus expand codes, plus end zones) is not 
too large. The program then goes to step g. 

f. Constants are then set up for the number of blocks and 
data words (standard format) . 

g. Unless suppressed by ACS 0=1, operating instructions are 
printed on the teleprinter to instruct him as to what he 
should do after which time checks are made to assure that 
he has done as instructed. 


* 


This printout may be suppressed by setting AC switch 0 to 1 (up) . 



h. The DECtape control is then instructed to Write Timing and Mark 
Track and word count and current address are initialized so 
that 8192 reverse end zones are written on tap_e. Word count 
and current address are again initialized, this time for 199 
ej^and codes. 

i. Word count and current address are again initialized after 
which time the buffer area of memory is filled with the mark 
track pattern for one block of tape. This pattern consists 
of 1 expand code, 1 forward block mark, 1 reverse guard, 

: A lock, (N-4) data marks, 4 prefinal, 1 gimrd, 1 reverse block 
nark, and 1 expand code. This pattern is written on tape 
for as many times as the number of blocks specified. 

j. After initializing word" count and current address, 199 expand 
codes, then 8192 forward end zones are written on tape. After 
this is completed the transport is stopped. 

k. Unless suppressed by ACS 0=1, the operator is told to set the 
switch on the maintenance control panel back to NORMAL after 
which time a check is made to make sure this is done. 

l. The DECtape control is then put in Search Continuous Reverse 
and is caused to search backwards 2 blocks. It is then put in 
Write All Continuous (forward) and the complement obverse 

of the last block number on tape is written into every mark 
until the tape unit shuts down in end zone. The DECtape 
control is then put in Search Normal Reverse until the first 
reverse block mark is found at which time it is put in 
Write All Continuous (reverse) and all the blocks are 
written to contain their block n\imbers (both forward and 
reverse) and a properly checksummed data pattern, all of 
which is generated and stored in memory. This is done 
until the tape unit shuts down in reverse end zone (beginning 
of tape) . 

m. The DECtape control is then put in Search Normal (forward) 
and the block nximbers for all blocks are checked in the 
forward direction. Upon encountering the last block number, 
the control is put in Write All Continuous (forward) and the 
last block is re-patterned in the forward direction. The 
program then waits for the tape unit to shut down in end 
zone. 

n. The reverse block numbers and data pattern are then checked 

in the reverse direction by alternating the DECtape control 
between Search Normal (reverse) to pick up block numbers, 
and Read Normal (reverse) to read the data pattern. After 

all blocks have been checked, the reel of DECtape is allowed 

to run off its end. 

o. The operator is then informed via the teleprinter of the format 

written on tape (number of blocks and data words) after which 

time he is asked if he wishes to mark tape to the same 
format. If he answers "Yes", the program proceeds to step g. 

If he answers "No", the program proceeds to step c. 
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ERRORS 


6-1 Error Messages 

Most error message prints are due to operator error, either in 
typing in information or status conditions of the DECtape 
control or tape drive. These are discussed in the appropriate 
paragraph in section 4. The errors discussed in this section 
pertain to program, or hardware problems. 

6 . 2 Unexpected Error Flag 

If an unexpected error flag (hardware error) occurs, some of 
the following typeouts will occur (the header will always be 
present) : 

THE FOLLOWING UNEXPECTED ERRORS WERE ENCOUNTERED: 

I4ARK TRACK ERROR 
END ZONE ERROR 
SELECT ERROR 
PARITY ERROR 
TIMING ERROR 

These errors are non- recover able. The program must be restarted 
at 00100 to resume marking tapes. 

6 . 3 Too Many Blocks Written 

If for some unknown reason the number of blocks specified to be 
written on tape does not agree with the number of blocks actually 
written on tape (and is less) the following error typeout will 
occur; 

TO MANY BLOCKS WRITTEN, PROGRAM ERROR - RELOAD 

This error is non-recoverable. To resume marking tapes, load 
program into computer as in section 3. 

6 . 4 Wrong Block Number 

If during the check of block numbers, the sequence of niimbers is 
unexpectedly broken, the following error typeout will occur: 

BLOCK NUMBER SEQUENCE BROKEN 

The progrcum will attempt to recover from this error by rewriting 
the block numbers and virgin data pattern. If this error occurs 
again, the prograon should be reloaded into memory as in section 3, 
or a DECtape maintenance diagnostic should be run on the DECtape 
transport and control. 
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FORMAT P'OR^'AT 

.title format 

, A8S 

/DECTAPE format OENtRATOP - PDP-9 TC?2 TU55 

/tape 1 


00100 



,LOC 

; 102 


00100 

707704 

begin 

lem 



00101 

101174 


JMS 

CRLF 

/type Cr, lf 

00102 

761276 


law 

MESSl 


00103 

101144 


JMS 

MESAGE 

/TYPEOUT FIRST MESSAGE 

00104 

761326 


law 

MESS2 


00105 

101144 


JKS 

MESAGE 

/TYPE OUT second MESSAGE 

00106 

700312 


krb 

/clear 

KEYBOARD Flag 

00107 

101227 


jMS 

OBCV 

/GO TO DEC TO Bin ROUTINE 

00110 

042461 


OAC 

UNIT 

/RETURN WITH UNIT NUMBER 

00111 

342420 


TAD 

M9 


00112 

740100 


SHA 

/IS IT 

LESS THAN 97 

00113 

601272 


JMP 

OVER 

/NO 

00114 

202461 


LAC 

UNIT 


00115 

745200 


SNAICLL /IS IT 

NOT 07 

00116 

601272 


JMP 

OVER 

/NO 

00117 

742020 


RTR 

/TESi 

MOVE IT 

00120 

742020 


RTR 

/4 RIGHT 

00121 

042461 


OAC 

UNIT 

/and store away 

00122 

101174 

TMESS3 

jMS 

CRLF 

/CR, UF 

00123 

761340 


law 

MESS3 


00124 

101144 


JMS 

MESAGE 

/TYPE 3RD message 

00125 

101202 


JMS 

GET /get character KEYED 

00126 

542462 


SAO 

VYV /WAS IT Vt 

00127 

600223 


JMP 

stand 

/yes 

00130 

542431 


SAO 

NNN /WAS IT Nl 

00131 

600135 


JMP 

TMESS4itl 

/yes 

00132 

760277 


law 

277 /IT WAS neither 

00133 

101166 


JMS 

type 

/TYPE "t" 

00134 

600122 


JMP 

TMESS3 

/AND ASK again 

00135 

101174 


JMS 

CRLF 

/cr-lf 

00136 

761407 

TMESS4 

law 

MESS4 


00137 

101144 


JMS 

MESAGE 

/TYPE OUT next MESSAGE 

00140 

101227 


JMS 

OBCV 

/call dec TO bin 

00141 

?42407 


OAC 

BLOCKS 

/STORE number or Blocks 

00142 

340457 


TAO 

F0URTW*5 


00143 

740100 


SMA 

/MAKE 

sure AT least 2 Blocks 

00144 

600150 


JMP 

,♦4 


00145 

762306 


law 

MESS24 

/NOT 2 OR MORE 

00146 

101144 


JMS 

MESAGE 


00147 

600136 


JMP 

TMESS4 


00150 

101174 


JMS 

CRLF 

/CR,lF 

00151 

761420 

TKESS5 

law 

MESS5 


00152 

101144 


JMS 

MESAGE 

/TYPE OUT next message 

00153 

101227 


JMS 

D0CV 

/CALL DEC TO BIn AGAIN 

00154 

'/4 2416 


OAC 

datas 

/STORE number of DATA WORDS 

00155 

34243‘-' 


TAO 

Ml NJS4 


00156 

740103 


SMA 

/IS IT 

AT LEAST 4 

00157 

600163 


JMP 

,♦4 /yes 


00160 

761433 

TMESS6 

law 

MESS6 

/NO TYPE OUT error 

00161 

101144 


JMS 

MESAGE 

/MESSAGE 



2 

FOR 'AT 

FORMAT 



- 

?0162 

6001‘;1 


JHP TMESS5 

/ASK question Again 



? 0 2 4 1 6 


UAC TATaS 



?f5164 

74002: 


PAR 



70165 

7404,'0 


SNU /IS divisible BV 2? 


00166 

600172 


JHP .♦A /yes 



00167 

761462 

T^ESS7 

law MESS7 

/NO, TYPE OUT 


70177 

101144 


JmS mESAGE 

/ERROR MESSAGE 


00171 

600151 


JMP TMESS5 

/ASK AGAIN 


00172 

202404 


lac aa 



00173 

744000 


CIL 



00174 

342416 


TAD OATAS 



00175 

740400 


SHI /IS NUMBER OP OATAWORO ToO LARCE? 


00176 

600232 


JMP ,*4 /NO 



00177 

762332 

TMESSS 

law MESS25 

/TESi TYPE OUT 


00200 

101144 


JMS mesage 

/ERROR MESSAGE 


00201 

600151 


JMP TMESS5 

/TRY AGAIN 


00202 

202416 


LAC DATaS 

/THIS 


00203 

342456 


TAO TEN /UPTLE 



00204 

740031 


CMA /Bit 



00205 

342434 


TAO ONE 



00206 

042414 


OAC CNTRl 

/Of 


00207 

754000 


CLAICIL /COOING 



00210 

342407 


TAO BLOCKS 

/multiplies 


00211 

442414 


ISE CNTRl 

/BLOCK NUMBER 


00212 

600210 


JMP .•2 /times 

Data word^ib 


00213 

741400 


S2L 



00214 

600220 


JMR ,44 



00215 

342463 


TAO MACCON 

/ADO THIS TO <•) max number OF MARKS 


00216 

740403 


SNL /TOO MANYl 


00217 

600230 


JMP next 

/NO 


00220 

761504 


law MESS8 

/YES, type out 


00221 

101144 


JMS MESAGE 

/ERROR MESSAGE 


00222 

600136 


JMP TMESS4 

/GO ’WAY back 


00223 

101174 

stand 

JMS CRLF 



00224 

202411 


lac CONSTl 



00225 

042407 


OAC BLOCKS 

/SET UP Blocks 


00226 

202412 


lac CONST? 



00227 

042416 


OAC OATAS 

/AND OATAS 


00230 

101174 

NEXT 

JMS CRLF 



00231 

750004 


LAS 



00232 

741103 


SPA 



00233 

600236 


JMP ,*3 



00234 

761521 


LAW MESS9 



00235 

101144 


JMS MESAGE 

/TYPE OUT NEXT MESSAGE 


00236 

700312 


krb /CU^^aR 

KEYBOARD Flag 


00237 

101202 


JMS get /wait for kev strike 


00247 

202461 


lac unit 



00241 

242377 


XOR WTMT 



00242 

242403 


XOR STOPGO 

/FORM UNIT» WTMT, STOP 


00243 

707545 


707545 /CLt-AR 

And load ^A 


00244 

74000? 


NOP /WAIT FOR XSA DELAY 


00245 

740000 


NOP 



70246 

740000 


NOP 



00247 

740030 


MOP 



00250 

74000? 


NOP 
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FOR-'UT 

FORMAT 


?0251 

747077 


:'jOP 

5^0252 

727561 


707561 /ERROR CONDITION? <E,F) 

00253 

677263 


JMP FIRST /NO, proceed TO »AIn PROGRAM 

00254 

707572 


707572 /YES, REaD STATUS B 

00255 

502424 


AND MASK2 

00256 

741277 


SNA /select error 

00257 

6.01044 


JMP ERRORI /NO 

00260 

761654 


LAW MESS10 /YES 

00261 

171144 


jMS mesage /Type out error message 

00262 

607237 

JMP next 

/routine to write mark Track 

00263 

202377 

FIRST 

lac WTMT /load AC WiTw WtmT FWO GO CQNT 

00264 

242461 


XOR UNIT /COMBINE UNIT NumBER 

00265 

707545 


707545 /CLtAR AnO LOAD "A” 

00266 

767000 


law 

00267 

740030 


DAC WC /SET WC TO » 8192 (DEC) 

00270 

272362 


lac revend 

00271 

742466 


OAC buffer /SET BUFFER TO »»95»» 

00272 

202465 


LAC BUFFERbI 

00273 

040031 


OAC CA /SCT CA TO "BUFFER*!" 

00274 

200030 


LAC WC /8Ct HC 

00275 

740200 


S2A /IS IT 0? 

00276 

600272 


JMP ,.4 /NO# reset CA 

00277 

707544 


707544 /YES, CLEAR OTF (QONC REViEND) 

00300 

777471 


law »307 

00301 

040030 


OAC WC /SET WC to -199 (DEC) 

00302 

202363 


lac expand 

00303 

042466 


OAC buffer /SET BUFFER TO "25« 

00304 

202465 


lac buffer*! 

00305 

740031 


DAC CA /SET CA TO BUFFER^! 

00306 

200030 


lac WC /GET WC 

00307 

740203 


S2A /IS IT 0? 

00310 

600374 


JMP ,«4 /NOi RESET CA 

00311 

707544 


707544 /YES, CLEAR OTF (QONE EXPAND) 

00312 

202407 

SECOND 

lac blocks /GET NUMBER OF BLOCKS 

00313 

740071 


CMA 

00314 

342434 


TAD ONE /take 2*S COMPLEMENT 

00315 

742450 


OAC SAVEl /SAVE 

00316 

'^42413 


OAC CNTR /AND STORE IN COUNTER 

00317 

202465 


lac buffer-1 

00320 

r4033l 


DAC CA /SET CA TO BUFFER-1 

00321 

'■47710 


OAC 10 /ALSO 10 

00322 

232416 


LAC OATAS /GET NUMBER OF DaTA WORDS 

00323 

342456 


TAO ten /ado 10 

00324 

740071 


CMA 

00325 

342434 


TAO ONF. /2»S complement 

00326 

'42447 


DAC SAVE /SAVE 

00327 

047737 


OAC wC /ANU store 1\' WC 

00330 

202363 


lac expand 

70331 

’67013 


DAC» 10 /store Expand code in buffer 

70332 

272364 


LAC mark 

70333 

760010 


OAC* 10 /store mark 

00334 

232365 


lac REVGRO 

00335 

'^6701? 


DAC* 10 /store reverse GUARD 

00336 

202366 


lac LOCK 
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FOR‘i.\T 


format 


0Z337 

'600U' 

DAC« 10 /STOPt LnCK, 

0074 0 


DAC» 1? /reverse: CHECKi 

0 0 341 

’6001.' 

OAC* 10 /reverse final* 

00342 

6 0 Z 1 

DAC« 10 /AND REVERSE PREFiNAL 

Z0343 

202416 

lac haTas 

00344 

342430 

TAD MlNgS4 

00345 

74120? 

SNA 

00345 

600356 

JMP ,410 

00347 

740001 

CMA 

00350 

342434 

TAD ONE 

00351 

042414 

OAC CNTRl /SET UP COUNTER FOR N»4 OATa WORDS 

00352 

202367 

lac oatam 

00353 

060010 

OAC* 10 /STORE n;4 data MARKS 

00354 

442414 

IS2 CNTRl 

00355 

600353 

JMP ,-2 

00356 

202370 

lac prefin 

00357 

060010 

OAC* 10 /STORE PREPlNALi 

00360 

060010 

dac* 10 /final* 

00361 

060010 

OAC* 10 /CHEcKi 

00362 

060010 

DAC* 10 /ANO REVERSE LOCK 

00363 

202371 

lac guard 

00364 

060010 

OAC* 10 /store guard 

00365 

202372 

lac rcvmrk 

00366 

060010 

dac* 10 /STORE reverse MARK 

00367 

202363 

lac expand 

00370 

060010 

DAC* 10 /STORE Expand 

00371 

200030 

lac wc 

00372 

740200 

S2A /HAS whole BLOCK BEEN TRANSFERRED? 

00373 

600371 

JMP ,«2 /NO 

00374 

707544 

707544 /YE5, clear OTF (DONE WjtH THIS BLOCK) 

00375 

202465 

LAC buffer*! /AND SET UP FOR BLOCK AGAIN 

00376 

040031 

OAC CA 

00377 

202447 

lac save 

00400 

04003? 

OAC WC 

00401 

A42413 

ISZ CNTR /WRITTEN ALL BLOCKS? 

00402 

600371 

JMP ,»ll /NO 

00403 

777471 

THIRD law »307 /YES* SET UP FOR 199 EXPANDS 

00404 

040030 

OAC wC 

00405 

202363 

lac expand 

00406 

042466 

DAC buffer /set BUFFER TO «25*’ 

00407 

202465 

lac BUFFER-1 

00410 

•M0031 

DAC CA /SET CA 

00411 

20003? 

lac wC /get wc 

00412 

740203 

S2A /IS IT 0? 

00413 

600407 

JMP ,*4 /NOi RESET CA 

00414 

707544 

707544 /YES, CLEAR DTF (DONE EXPAND) 

00415 

760000 

LAW 

00416 

''40033 

OAC WC /SET WC to »»ei92(0EC) 

00417 

202373 

lac end 

00420 

’42466 

OAC buffer /SET buffer to ”22” 

00421 

202465 

lac 8UFFER*1 

00422 

040031 

dac CA /SET CA TO BUFFER-1 

00423 

200030 

lac WC /GET WC 

00424 

740203 

SHA /IS IT 0? 

00425 

600421 

JMP ,-4 /NO 
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rOR^-AT 


format 


f’0A2^ 

202377 


tAC ^.TMT /YESi then 

00427 

7075-14 


737544 /STOP TAPE 

-0 43'" 

700312 

TMESll 

KR9 /CU^-aR KfVyoARD OF EKTRA' EOUS CHARACTERS 

00431 

75P004 


las 

00432 

7411.^0 


SPA 

00433 

600436 


JMP ,*3 

00434 

7617'i7 


law MESSll 

00435 

101144 


JVS mESAGE /type out next message 

00436 

101202 


jMs get /wait for a key to be Struck 

00437 

202461 


lac unit 

00440 

707545 


707545 /CL^AR And LOAD ’♦A” WITh MOVE 

00441 

740000 


NOP /WAIT FOR XSA DELAY 

00442 

740000 


NOP 

00443 

740000 


NOP 

00444 

740000 


njOP 

00445 

740000 


MOP 

00446 

740000 


NOP 

00447 

707561 


707561 /ERROR FlAC? 

00450 

741000 


SKP /NO 

00451 

600430 

JMP TMESll /VESi type message AGAIN 

/ROUTINE TO WRITE UAST BlOCK NUMBER IN REVERSE MARK 
/then all Block marks and a virgin pattern in reverse direction 

00452 

202376 

FOURTH 

lac RESERC /load AC WITH SeaRCH, CONTINUOUS GO. REVERSE 

00453 

242461 


XOR UNIT /COMBINE WITH UNIT NUMBER 

00454 

707545 


707545 /clear and load "A" 

00455 

202464 


lac buffer*? 

00456 

040031 


OAC CA /set CA to BUFFER 

00457 

777776 


law *2 

00460 

040030 


DAC WC /SET WC to -2 

00461 

200030 


LAC WC 

00462 

741200 


SNA /WAIT FOR WC • 0 

00463 

600467 


JMP ,*4 

00464 

707561 


707561 /error Flag? 

00465 

600461 


JMP ,*4 /NO 

00466 

600452 


JMP FOURTH /YESi START AGAIN 

00467 

202375 


lac FWDwaC /LOAD AC WITH WRITE aLLi FWQ, GO, CONT, 

00470 

242461 


XOR unit /COMBINE WITH UNIT NUMBER 

00471 

707545 


707545 /clear AnO LOAD ’’A" 

00472 

140030 


DHM WC /ZERO WC 

00473 

750001 


clajcma 

00474 

342407 


tad rlocks /COMPUTE last Block number 

00475 

042452 


OAC SAVE3 

00476 

101115 


JMS CALQL8 /FIND COMPLEMENT OVBERSE 

00477 

042451 


OAC SAVE2 

00500 

042466 


OAC buffer /STORE IN BUFFER 

70501 

202465 


LAC BUFFERwI 

00502 

■740031 


OAC CA /SET CA TO BUFFER*! 

00503 

707561 


707561 /WAIT FOR ERROR FLAG 

00504 

600501 


JMP ,-3 

00505 

707572 


707572 /read STiTUS ”8” 

00506 

502423 


ANO MASKl 

00507 

741230 


SNA ZENO zone? 

00510 

601344 


JMP ERRORI /NO 

00511 

202376 


lac RESERC /YES, LOAD SEARCH REV GO CONTINUOUS 

00512 

242402 


XOR norcon /make normal 
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FORMAT 


F C R f't A T 


F0&13 

242461 

XOR UMIT /CQMRIN'E WITH UmT 


70514 

707545 

707545 /CttAH AfiQ LOAD 


70515 

202464 

lac BUFFER"*? 


70516 

040031 

DAC CA /SET CA TO BUFFER 


00517 

707601 

707601 


00520 

600517 

JMP ,-l /WAIT FOP OTF 


00521 

707552 

707552 /read ”A» 


00522 

502443 

AND P0InT*3 


00523 

707544 

707544 /clear FUNCTION BjTS 


00524 

202401 

lac WAC /load AC WITH WRITE ALU CONT 


00525 

707544 

707544 /transfer INTO ''A« 


00526 

202465 

LAC buffer*! 


00527 

040010 

DAC 10 /SET UP 10 


00530 

342460 

TAO THREE 


00531 

040031 

OAC CA /ANO CA 


00532 

202447 

LAC save 


00533 

342460 

TAO THREE 


00534 

040030 

OAC WC /SET WC TO 2 LESS THAN USUAL 


00535 

160010 

02M* 10 /SET UP EXPAND 


00536 

750001 

CLAfCMA 


00537 

342407 

TAO BLOCKS 


00540 

060010 

oAC» 10 /SETUP Block number into buffer*! 


00541 

202416 

LAC datas 


00542 

342457 

TAD two 


00543 

740001 

CMA 


00544 

042414 

DAC CNTRI /SET UP COUNTER FOR # OF 0' 

•S 

00545 

160010 

DiM* 10 /(DATA W0R0S*3) IN MEMORY 


00546 

442414 

IS2 CNTRI /AND THEN STORE IN BUFFER 


00547 

600545 

JMP ,*2 


00550 

750001 

CLAtCMA 


00551 

060010 

DAC# 10 /SET UP reverse CHECKSUM 


00552 

160010 

02M# 10 /SET UP LOCK 


00553 

160010 

02M* 10 /SET UP REVERSE CyARO 


00554 

202451 

LAC SAVE2 


00555 

260010 

OAC# 10 /STORE COMP, OBVERSE IN BLOCK MARK 


00556 

750001 

clajcma 


00557 

,^60010 

OAC# 10 /SETUP Expand 


00560 

202450 

lac SAVEl 


00561 

042413 

OAC cntr /SET UP Blocks counter 


00562 

750001 

clajcma 


00563 

340010 

tao 10 


00564 

^42435 

DAC PNTR /SET UP PnTR FOR BLOCK NUMBER 

00565 

200030 

hEREI lac wC /wait for block to finish 


00566 

741200 

SNA 


00567 

600573 

JMP ,*4 


00570 

707561 

707561 


00571 

600565 

JMP ,mA 


00572 

601044 

jMp errori 


00573 

707544 

707544 /CLEAR DTF 


00574 

202465 

LAC PUFFER"! 


00575 

040031 

OAC CA /SETUP CA 


00576 

202447 

UAC SAVE 


00577 

'140030 

OAC WC /ANU WC 


00600 

750001 

clajcma 


00601 

342452 

TAD SAVE3 /COMPUTE NUMBER oF CURRENT 

BLOCK 
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F OR^AT 


rORMAT 


^Z6?2 

-■424^? 


DAC SAVES 

:’06«3 

'42467 


OAC Buffer*! /and store in appropriate place 

00604 

101115 


CALQlS /FORM COMPLEMENT OBVERSE 

00605 

: 62435 


DAC* PVTR /AND STORE IT 

00606 

442413 


isH CNTR /HAVE all Blocks been patterned? 

00607 

600565 


JMP HEREI /NO 

00610 

20 2 4. ’2 


lac NORCON 

00611 

707544 


707544 /cllar Continuous 

00612 

707552 


707552 /read "AH 

00613 

502443 


AND P0lNT*3 

00614 

707544 


707544 /clear FUNCTION REGISTER 

00615 

202403 


LAC SERnOM /LOAD AC WITH SeaRCH NORMAL 

00616 

707544 


707544 /XOH INTO "A” 

00617 

202464 


LAC BUFFER"2 

00620 

040031 


OAC CA /SET UP CA 

00621 

707601 


707601 /SKIP IF BLOCK MARK FOUND 

00622 

741000 


SKP /NO OTF, CHECK ERROR FLAG 

00623 

601106 


JMP ERR0R2 /OTF, ERROR 

00624 

707561 


707561 /SKIP ON ERROR FLAG 

00625 

600621 


JMP ,.4 /NO FLAGS* CHECK ALL AGAIN 

00626 

707572 


707572 /read status "B** 

00627 

502423 


AND MASKl 

00630 

741200 


SNA /IS DECTaPE in end 20NE? 

00631 

601044 

JMP ERRORI /NOi error 

/ROUTINE TO CHECK FORWARD BtOCK MARKS An'D 
/REWRITE LAST BLOCK 

00632 

202450 

fifth 

lac SAVEl 

00633 

042413 


OAC CNTR /SET counter TO • NUMBER OF BLOCKS 

00634 

142417 


02M expect /2CR0 EXPECTED BLOCK NUMBER 

00635 

202403 


lac SERNOM /LOAD AC WITH SEARCH NORMAL 

00636 

242400 


XOR STOPGO /XOR CO 

00637 

242461 


XOR UNIT /COMBINE WITH UN|T 

00640 

707545 


707545 /CLtAR AND LOAD ’’A” 

00641 

202464 


LAC BUFFER** 

00642 

040031 


OAC CA /SET UP CA 

00643 

140030 


02M wC /ANi) WC 

00644 

707601 

HERE2 

707601 /WAIT FOR OTF 

00645 

600644 


JMP ,wl 

00646 

707554 


707554 /clear It 

00647 

202466 


LAC buffer /GET BLOCK NUMBER 

00650 

542417 


SAD EXPECT /COMPARE AGAInSt EXPECTED 

00651 

741003 


SKP /OK 

00652 

601112 


JMP errors /ERROR 

00653 

442417 


ISZ EXPECT /SET UP EXPECT FnR NEXT 

00654 

442413 


isz cntr /will there be a next? 

00655 

600644 


JMP HERE2 /YES 

00656 

707552 


707552 /NO» read ”A« 

00657 

502443 


AND P0InT*3 

00660 

707544 


707544 /Clear function bjts 

00661 

202401 


lac WAC /load AC WITH WRITE ALU COnT 

00662 

707544 


707544 /TRANSFER INTO ”A»» 

00663 

202465 


lac buffer*! 

00664 

040013 


DAC 10 /SET UP 10 

00665 

342460 


TAD THREE 

00666 

040331 


OAC CA /AND CA 



fOR'^iAT 


CAGE. 


rOH''’AT 


?0667 

P32447 


lac save 

0067'^ 

34 2 4 6; 


TAD three 

0 0 6 71 

'4?23.: 


DAC WC /set up 'aC 

00672 

1 6 3 3 1 ■ ’ 


OHM# 13 /SEt UP EXPA^'O (MQT NEEDED) 

00673 

750031 


CtAlCMA 

00674 

342407 


TAD BLOCKS 

00675 

060013 


DAC* 10 /SET UP FORWARD BLOCK MarK 

00676 

202416 


lac hatas 

00677 

342457 


TAD TWO 

00700 

740001 


CMA 

00701 

042414 


DAC CNTRI /SET UP COUNTER FOR # 

00702 

750001 


CLAtCMA /(QATAWOROS^S) IN MEMORY 

00703 

060210 


DAC« 10 /ANO then store IN BUFFER 

00704 

442414 


ISi CNTRI 

00705 

620703 


JMP ,#2 

00706 

160010 


OiM# 10 /SET UP CHECKSUM 

00707 

060010 


dacr 10 /reverse lock 

00710 

060010 


OAC* 10 /guard 

00711 

342407 


TAO BLOCKS 

00712 

101115 


JMS CALQLS /FORM COMPi OBVERSE 

00713 

060010 


DAC* 10 /store In REVi MARK 

00714 

160010 


02Mr 10 /SET UP EXPAND 

00715 

200030 


lac WC /WAIT FOR Block to be written 

00716 

741200 


SNA 

00717 

600723 


JMP ,44 

00720 

707561 


707561 

00721 

600715 


JMP ,#4 

00722 

601044 


JMP ERRORI 

00723 

707552 


707552 /read *»A" 

00724 

502443 


AND P0INT*3 

00725 

707554 


707554 /clear FUNCTION REGISTER 

00726 

707561 


707561 /WAIt for error FLAG 

00727 

600726 


JMP ,#1 

00730 

707572 


707572 /read status "B” 

00731 

502423 


AND MASKl 

00732 

741200 


SNA /IS DECTaPE in END HONE? 

00733 

601044 

/ROUTINE 

JMP ERRORI /NO, ERROR 

: TO CHECK REVERSE BLOCK MARK ANo READ 

00734 

750001 

SIXTM 

CLAtCMA 

00735 

342407 


TAD BLOCKS /CREATE HIGHEST BLOCK 

00736 

-42417 


DAC EXPECT /AND STORE IN ExpECT 

00737 

202461 


lac unit /FORM WORD 

00740 

242400 


XOR STOPGO /TO select UNIT 

00741 

242424 


XOR MASK2 /AND GO REVERSE 

00742 

707545 


707545 /CLtAR A^O LOAD ’’A" 

00743 

707552 

HERE3 

707552 /READ '‘A** 

00744 

502443 


AND POINT43 

30745 

737544 


707544 /CLtAR FUNCTION REGISTER 

00746 

232403 


LAC SERnOM /LOAD AC w|Th SeaRCh 

00747 

707544 


737544 /XOH iNTp "A” 

00750 

202464 


lac BUFFERwli 

00751 

^/40031 


DAC CA /SET UP CA 

00752 

727601 


707601 /WAIT for OTF 

00753 

600752 


JMP ,-l 

00754 

202466 


lac buffer /GET BLOCK NUMBER 


OF I'S 
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FTRi' AT 


POR'^AT 


70755 

■=42417 


GAD EXPECT /COMPARE aGAINSt ExPECTEG 

70756 

74133^ 


SKP /Same aLI. Ok 

70757 

601112 


JMP ERR0R3 /OIPPERENTi ERRhr 

70767 

707552 


707552 /read "A" 

70761 

502443 


and p0Int*3 

00762 

707544 


707544 /cl^ar Function register 

00763 

202374 


lac rednom /loap AC witw Read normal 

00764 

707544 


707544 /XOH INTO ’'A*' 

00765 

202465 


lac buffer-1 

00766 

040031 


DAC CA /SET UP CA 

00767 

140030 


OZM WC /2ER0 WC 

00770 

707601 


707601 /OeCTAPE FLACT 

00771 

600770 


JMP ,-l /NO 

00772 

707561 


707561 /ERROR FlA5? 

00773 

741000 


SKP /NOi ALL OK 

00774 

601044 


JMP ERROR! /YES* ERROR 

00775 

750001 


cLAjcMA /decrement expect 

00776 

342417 


TAO EXPECT 

00777 

042417 


OAC EXPECT 

01000 

740001 


CMA 

01001 

750200 


SZAICLA /HAS expect GONE TO -0? 

01002 

600743 


JMP HERE3 /NO, repeat FOR nEXT BLOCK 

01003 

202461 


LAC UNIT /YES 

01004 

740001 


CMA 

01005 

502445 


AND P0INT45 

01006 

707545 

/routine 

707545 /deselect UNIT 
: TO INQUIRE OF OPERATORS INTENTIONS 

01007 

762210 

last 

law MESS20 

01010 

101144 


JMS MESACE /TYPE OUT MESSAGE 

01011 

202407 


lac blocks 

01012 

101207 


JMS TYPOUT /TYPE OUT NjmbEr OF BtOCKS 

01013 

202461 


lac UNIT 

31014 

242424 


XOR MASK2 

01015 

707545 


707545 /STOP DRIVE 

31016 

760240 


law 240 

01017 

101166 


JMS TYPE 

01023 

762221 


law MESS21 

01021 

101144 


JMS mESAGE /TYPE OUT MESSAGE 

01022 

202416 


lac datas 

01023 

101237 


JMS TYPOUT /TYPE OUT NUMBER OF DATA WORDS 

01024 

76024? 


law 240 

01025 

101166 


JMS TYPE 

01026 

762232 


law MESS22 

01027 

101144 


JMS MESaGE /TYPE OUT MESSAGE 

■01033 

762243 

THES23 

law MESS23 

01031 

101144 


JMS mesage /type OUT message 

01032 

703312 


krb 

01033 

101202 


JMS get /get typed CHARACTER 

31034 

542462 


SAD YYY /WAS IT Y 

01335 

603233 


J^P NEXT /YES 

31036 

542431 


SAD NNN /NO, WAS IT N 

31037 

603122 


JMP TMESS3 /YES 

31043 

ih'mi 


law 277 /NO 

31041 

101166 


JMS TYPE /TYPE U) 

31042 

101174 


JMS CRLF /CR-LF 



PAr,E; 10 

roS’'AT 

roR'iAT 


•^10 43 

40103, 


JMP TMES23 /TRY AGAIN 



/UNEXPECTED ERROR EUaG TYPE nUT ROUTINE 

"1^44 

76203«? 

ER^ORl 

law MESS12 

71(^45 

181144 


JMS MESAGE /type OUT MESSAGE HEADER 

i51?46 

7S7572 


707572 /read 

551047 

74081? 


RAL 

0105? 

740100 


SMA /mark track error? 

01051 

681854 


JMP ,43 /NO 

01052 

762865 


law MESS13 /YES 

01053 

181144 


JMS MESAGE 

01054 

787572 


707572 /read «B*’ 

01055 

742810 


RTL 

01056 

740108 


SMA ZENO 20NC ERROR? 

01057 

601062 


JMP ,*3 /NO 

01060 

762077 


law MESS14 /YES 

01061 

101144 


JMS mesage 

01062 

707572 


707572 /read "B*' 

01063 

502424 


AND MASK2 

01064 

741200 


SNA /seuect error? 

01065 

601070 


JMP ,*3 /NO 

01066 

762110 


law MESS15 /YES 

01067 

101144 


JMS mesage 

01070 

707572 


707572 /read "Bm 

01071 

502425 


AND MASK3 

01072 

741208 


SNA /parity error? 

01073 

601076 


JMP ,43 /NO 

01074 

762120 


law MCSS16 /YES 

01075 

101144 


JMS mesage 

01076 

707572 


707572 /read "B” 

01077 

502426 


AND MASK4 

01100 

741208 


SNA /timing error? 

01101 

601124 


JMP ,43 /NO 

01102 

762130 


law MESS17 /YES 

01103 

101144 


JMS MESAGE 

01104 

740040 


XX 

01105 

601104 


JMP ,»1 



/TOO many Blocks vjritten error routine 

01106 

762148 

error2 

law messib 

01107 

101144 


JMS mesage /type out error message 

0111 ^ 

74004? 


XX /AND stop 

01111 

601112 


JMP ,wl 



/WRONG 

BLOCK NUMBER ERROR ROUTINE 

01112 

76217? 

ERRORS 

law MESS19 

01113 

101144 


JMS mesage /type OUT ERROR ^ESSAGE 

01114 

607467 


JMP rOURTH4l5 /REPEAT VIRGIN P 4 TTERN 



/calculate 16 BIT COMPLEMENT OBVERSE 

01115 

■^072?? 

calolb 

0 

01116 

744201 


CMAJCLL 

01117 

? 4 2432 


OAC NUMBER 

0112 ^ 

1.42433 


0 ?M OBVERS 

01121 

777772 


law -6 

01122 

^42453 


OAC TALLY 

01123 

?824t£ 


lac cpoint 

01124 

042436 


OAC PNTRl 

01125 

202432 


lac number 
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r 0 R A T 

FORMAT 


?1126 

741777 


SKP 

''1127 

7 4 2 1 " 

LOOP 

rtu 

:'113^ 

74 2,; 1 


rtl 

'^1131 

7 4 2iU.' 


rtl 

71132 

‘42432 


DAC number 

71133 

522436 


AND* PNTRl 

01134 

242433 


XOR obvers 

01135 

742433 


OAC OBVERS 

01136 

442436 


ISZ PNTRl 

01137 

272432 


lac number 

01140 

442453 


ISZ TALLY 

71141 

601127 


JMP LOOP 

01142 

202433 


lac obvers 

01143 

621115 

JMP« CAlQUB 

/MESSAGE PRINT SUBROUTINE 

01144 

700000 

mesace 

0 

01145 

502427 


AND MASKS 

01146 

742437 


DAC PNTR2 

01147 

222437 


LAC* PNTR2 

01150 

742020 


RTR 

01151 

742020 


RTR 

01152 

742020 


RTR 

01153 

742020 


RTR 

01154 

740020 


RAR 

01155 

101166 


JMS TYPE 

01156 

542446 


SAO RUBOUT 

01157 

621144 


JMP« MESACE 

01160 

222437 


lac* PNTR2 

01161 

101166 


JMS TYPE 

01162 

542446 


SAO RUBOUT 

01163 

621144 


JMP# MESACE 

01164 

442437 


ISI PNTR2 

01165 

601147 

/type 

JMP MCSAGE*3 
SUBROUTINE 

01166 

700070 

TYPE 

0 

01167 

502446 


AND RUeoUT 

01170 

700406 


TLS 

01171 

700401 


Tsr 

71172 

601171 


JMP ,-i 

71173 

621166 

/crlf 

JMP« TYPE 

subroutine 

71174 

^00007 

CR^F 

0 

01175 

760215 


law 215 

01176 

171166 


JMS TYPE 

01177 

760212 


law 212 

01200 

101166 


JMS TYPE 

01201 

621174 


JMP« crlf 

01202 

7700P7 

GET 

0 

71203 

70031 1 


Ksr 

^1204 

601273 


JMP ,-l 

71205 

700312 


KR8 

71206 

621272 

/OCTAL 

JMP« GET 

TYPEOUT subroutine 

71207 

0000p’^ 

TYPOUT 

7 

71217 

:‘42454 


DAC temp 
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rORt'AT 

format 


71211 

777772 


law ^6 

71212 

742415 


OAC CNTR2 

71213 

7024^4 


lac temp 

ei2l4 

7440i;; 


RAL!CLL 

71215 

740010 


RAL 

01216 

74201C 


RTL 

01217 

742454 


OAC temp 

01223 

502447 


AND POINT 

01221 

242406 


XOR ASKII 

01222 

101166 


JMS TYPE 

01223 

202454 


lac temp 

01224 

442415 


ISB CNTR2 

01229 

601215 


JHP \niZ 

01226 

621207 

JMP# TYPOUT 

/decimal to binary Input routine 

01227 

000000 

OBCV 

0 

01230 

142405 


02M ANSWER /ZERO ANSWER 

01231 

101202 


JMS GET /GET A CHARACTER 

01232 

042454 

test 

OAC TEMP /SAVE IT 

01233 

342422 


TAO M260 /SUBTRACT 260 

01234 

741100 


SPA /IS CHAR > 260 

01235 

601267 


jMP done /nOi done 

01236 

342421 


TAO M12 /subtract 12 

01237 

740100 


SMA /char < 271 

01240 

601267 


JMP DONE /NOi DONE 

01241 

202454 


lac temp /GET CHARACTER 

01242 

242406 


XOR ASKII /MASK OFF ASCII COOE 

01243 

342454 


OAC TEMP /STORE BACK IN TEMP 

01244 

202405 

MP10 

lac answer /GET PARTIAL ANSWER 

01245 

744010 


RALICLL /MULTIPLY X 2 

01246 

741400 


SZL /overflow? 

01247 

601272 


JMP OVER /YES 

01250 

342455 


OAC TEMI /no# STORE 

01251 

740010 


RAL /X 0 AGAIN 

01252 

741400 


SZL /OVERFLOW? 

01253 

601272 


JMP OVER /YES 

01254 

740010 


RAL /NO# X 2 AGAIN 

01255 

741400 


SZL /overflow? 

71256 

601272 


JMP OVER /YES 

7-1257 

342455 


TAO TEMI /ADD ANSWER X 2 

01260 

741400 


SZL /overflow? 

71261 

601272 


JMP OVER /YES 

71262 

342454 


TAD TEMP /NO, ADO NEW NUmrER 

71263 

74140? 


SZL /OVERFLOW? 

01264 

601272 


jMp OVER /YES 

71265 

742405 


DAC answer /NO 

71266 

601231 


JMP TEST-1 /CO SACK FOR NExT CHARACTER 

71267 

101174 

DONE 

J^S CRLF 

71277 

202405 


lac answer /GET answer 

71271 

^21227 


jMp« OBCV /exit 

71272 

767277 

OVER 

law 277 

01273 

101166 


JMS TYPE /TYPE *’?” 

71274 

101174 


jMS CRLF 

71275 

60123? 

/tape 2 

JMP oBcv*i /start again 



format 


page: 13 fdR'ut 

/OECTAPE format GENERATOR - POP-’* TCz?, TU55 

/messages 


ri2 76 

304305 

MESSl 

304305 

/0 1 E 

?i2n 

303324 


303324 

/C, T 

?'130O 

301320 


301320 

/A,P 

Fl3ai 

305240 


305240 

/E|SP 

F1302 

306317 


306317 

/F,0 

F1303 

322315 


322315 

/R,M 

01304 

301324 


301324 

/A|T 

01305 

240307 


240307 

/SP#G 

01306 

305316 


305316 

/E#N 

Z1307 

305322 


305322 

/EiR 

01310 

301324 


301324 

/ A 1 T 

01311 

317322 


317322 

/0»R 

01312 

255320 


255320 

/•|P 

01313 

304320 


304320 

/D#P 

01314 

255271 


255271 

/•I? 

01315 

254240 


254240 

/i»5P 

01316 

324303 


324303 

/T|C 

0131? 

260262 


260262 

/0|2 

01320 

254240 


254240 

/iiSP 

01321 

324325 


324325 

/T#y 

01322 

265265 


265265 

/5|5 

01323 

215212 


215212 

/CR»LF 

01324 

212212 


212212 

/UFiLF 

01325 

212377 


212377 

/LFfR,0 

01326 

315301 

MCSS2 

315301 

/M|A 

01327 

322313 


322313 

/R|K 

01330 

240324 


240324 

/SP»T 

01331 

301320 


301320 


01332 

305240 


305240 

/EiSp 

01333 

317316 


317316 

/0,N 

01334 

240325 


240325 

/SP»U 

01335 

316311 


316311 

/Nil 

01336 

324240 


324240 

/T|Sp 

01337 

240377 


240377 

/SPfR,0 

01340 

304317 

MESS3 

304317 

/D|0 

01341 

240331 


240331 

/SPiY 

01342 

317325 


317325 

/0|U 

01343 

240304 


240304 

/SPiD 

01344 

305323 


305323 

/E|S 

01345 

311322 


311322 

/l|H 

01346 

305240 


305240 

/E|Sp 

01347 

323324 
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301323 


301323 

/A|S 

02220 

240377 


240377 

/SP#RO 

02221 

302314 

MCSS21 

302314 

/Bil* 

02222 

317303 


317303 

/0|C 

02223 

313323 


313323 

/K|S 

02224 

250317 


250317 

/( »o 

02225 

303324 


303324 

/CiT 

02226 

251240 


251240 

/> |5p 

02227 

305301 


305301 

/E|A 

02230 

303310 


303310 

/C#H 

02231 

240377 


240377 

/SP»RO 

02232 

327317 

MESS22 

327317 

/w»o 

02233 

322304 


322304 

/R|0 

02234 

323250 


323250 

/S|( 

02235 

317323 


317303 

/o»c 

02236 

324251 


324251 

/Ti) 

02237 

240314 


240314 

/SP»L 

02240 

317316 


317316 

/0|N 

02241 

307215 


307215 

/6|CR 

02242 

212377 


212377 

/UF»RO 

02243 

304317 

MESS23 

304317 

/OiO 

02244 

240331 


240331 

/SP»Y 

02245 

317325 


317325 

/o»u 

02246 

240304 


240304 

/SP»0 

02247 

305323 


305323 

/E.S 

02250 

311322 


311322 

/I|H 

02251 

305240 


305240 

/E#SP 

02252 

324317 


324317 

/T|0 
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/"2253 

?403it> 


240315 


/225 4 

301322 


301322 

/A,H 

C2255 

313240 


313240 

/K|SP 

32256 

301316 


301316 

/A,!^ 

32257 

317324 


317324 

/0|T 

02260 

3103'05 


310305 

/H|fc 

02261 

322240 


322240 

/R»SP 

02262 

324301 


324301 

/T|A 

Z2263 

320305 


320305 

/P|E 

02264 

240324 


240324 

/SPiT 

02265 

317240 


317240 

/0|SP 

02266 

324310 


324310 

/T,H 

02267 

311323 


311323 

/1|S 

02270 

240306 


240306 

/SPiP 

02271 

317322 


317322 

/0|H 

02272 

315301 


315301 

/M,A 

02273 

324250 


324250 

/T,< 

02274 

324331 


324331 

/T|Y 

02275 

320305 


320305 

/Pil 

02276 

240331 


240331 

/SPiY 

02277 

255331 


255351 

/■i Y 

02300 

305323 


305323 


02301 

240316 


240316 

/SPlM 

02302 

255316 


255316 

/m,H 

02303 

317251 


317251 

/Of ) 

02304 

277215 


277215 

/7i?P 

02305 

212377 


212377 

/LPiRO 

02306 

215212 

HCSS24 

215212 

/CRtr 

02307 

316325 


316325 

/NfU 

02310 

315302 


319302 

/M|8 

02311 

305322 


305322 

/EiR 

02312 

240317 


240317 

/SPiO 

02313 

306240 


306240 

/r,sp 

02314 

302314 


302314 

/BiL 

02315 

317303 


317303 

/OiC 

02316 

313323 


313323 

/KfS 

02317 

240315 


240315 

/SPiP 

02320 

325323 


325323 

/U|S 

02321 

324240 


324240 

/TfSp 

32322 

302305 


302305 

/8,E 

02323 

240262 


240262 

/SP»2 

02324 

240317 


240317 

/SP#0 

02325 

322240 


322240 

/RfSp 

32326 

315317 


315317 

/MfO 

02327 

322335 


322305 

/RfE 

32330 

215212 


215212 

/CR»LF 

02331 

377000 


377000 

/RO 

32332 

215212 

MESS25 

215212 

/cr»lf 

02333 

270313 


270313 

/8,K 

'’2334 

240317 


240317 

/SP»C 

32335 

306240 


306240 

/Fi5P 

32336 

315305 


315305 

/Mffc 

02337 

315317 


315317 

/M,0 

02340 

322331 


322331 

/R»7 

02341 

240303 


240303 

/SP»C 



OAGE 23 


rOR'iAT 


format 


'/?342 301316 3S(’1316 /A|N 

'‘2343 247324 247324 /*,T 

22344 2473;'3 240303 /SP»C 

02345 317316 317316 /0|N 

02346 324301 324301 /T|A 

02347 311316 311316 /l,N 

02350 240324 240324 /SP»T 

02351 310311 310311 /H|l 

02352 323240 323240 /S|Sp 

02353 323311 323311 /S|l 

02354 332305 332305 /Z|E 

02355 240302 240302 /SPiB 

02356 314317 314317 /U#0 

02357 303313 303313 /C»K 

02360 240215 240215 /SP»CR 

02361 212377 212377 /(.FiRO 

/CONSTANTS AND VARJABUES 
/WC AND CA definitions 
000030 WC«30 

000031 CARSl 

/mark track patterns 

02362 404404 RCVCnD 404404 /55 

02363 040404 EXPAND 040404 /25 

02364 040440 MARK 040440 /26 

02365 044040 REVGRO. 044040 /32 

02366 004000 LOCK 004000 /10 

02367 444000 OATAM 444000 /70 

02370 444044 PREFIN 444044 /73 

02371 404004 GUARD 404004 /5l 

02372 400404 REVMRK 400404 /45 

02373 040040 END 040040 /22 

/DECTAPE COMMAND 

02374 002000 REONOM 002000 /RE^O DATA NORM 

22375 335000 FWDWAC 035000 /WRITE AuL FWO GO CONT 

22376 371000 RESERC 071000 /SEARCH REVERSE GO CONT 

22377 036000 WTMT 036000 /WRITE T 4 MT FWO GO COnT 

02400 020000 STOPGO 020000 /STOP OR GO 

22401 315000 WAC 015000 /WRITE AtL CONTINUOUS 

22402 310000 NORCON 010000 /NORMAL CONTINUOUS 

22403 001000 SERNOM 001000 /search nOPMAL 

/AASSORTED SUNDRY POINTERS# COUNTERS, CqnSTAmTS, VARIABLES, ETC, 


22404 

762514 

AA 

A* 1 

/number rF DATA WORDS MAX (•) 

02405 

.000000 

answer 

0 

/ANSWER TO DEC TO BIN TyPElN IDBCV) 

32406 

000260 

ASKII 

260 

/MAGIC CONSTANT 

32407 

021102 

BLOCKS 

1102 

/NUMBER oF BLOCKS 

32410 

302442 

CPOINT 

POINT 


32411 

021102 

CONSTl 

1102 

/57B DEC 

32412 

700403 

C0NST2 

400 

/256 DEC 

32413 

.?32003 

CNTR 

0 

/BLOCKS counter 

;‘24i4 

:'00073 

CNTRi 

2 

/data word counter 

32415 

300200 

CNTRp 

0 

/counter for octal TYPEOuT 

32416 

302 4*'* 3 

DATAS 

400 

/number of data words 

32417 

002000 

EXPECT 

0 

/number of block EXPECTEn 


32420 777767 m 9 -l"ll*l 

■’2421 777766 Ml2 . -I-^IZ*! 



PAGE ?4 

FOh:-' aT 

roRKAT 



/;'2422 

iiibi : 

*^260 

-1-260+1 

■'2423 

^ r\n rfi t? , ’ 

maski 

100000 


/’2424 

■: 4 0 0 1 ■ ■■’ 

‘1ASK2 

40000 


72425 

72'lW 

'"ASKS 

20000 


;?2426 

7 1 0 0 7 

’'ASK4 

10000 


?2427 

■mn 

■iASK5 

7777 


72430 

inii^ 

hI.MUS4 

•!’1"4*1 


02431 

000316 

NNN 

316 


02432 

000000 

number 

0 

/number being OBVERSEO 

02433 

000000 

OBVERS 

0 

/COMP, obverse CAuCULATioNS 

02434 

000001 

ONE 

1 


02435 

000000 

PNTR 

0 

/POINTER for storage OF RWOCK NUMBER 

02436 

002440 

PNTRl 

POINT 

/POINTER FOR MASKS OF CalOLS 

02437 

000000 

PNTR2 

0 

/POINTER for MESAGE 

02440 

000007 

POINT 

7 

/MASK FOR CAL0L8 

02441 

000070 


70 


02442 

000700 


700 


02443 

007000 


7000 


02444 

070000 


70000 


02445 

700000 


700000 


02446 

000377 

RUSOUT 

377 


02447 

000000 

SAVE 

0 

/« OF MARKS PER BtOCK U) 

02450 

000000 

SAVEl 

0 

/* OF BLOCKS (-) 

02451 

000000 

SAVE2 

0 

/COMP, OBVERSE OF LAST BLOCK 

02452 

000000 

SAVES 

0 

/« OF particular block 

02453 

000000 

TAUT 

0 

/COMp, OBVERSE COUNTER 

02454 

000000 

TEWP 

0 

/STORAGE FOR TYPCOUT aNq TyplN 

02455 

000000 

TEMl 

0 

/STORAGE FOR OBCV 

02456 

000012 

TEN 

12 


02457 

700002 

TWO 

2 


02460 

000003 

THREE 

3 


02461 

000000 

UNIT 

0 

/UNIT number 

02462 

000331 

YYY 

331 


02463 

323553 

mAGCON 

323553 

/MINUS 153i749(0EC> 



/beginning of Buffer area 

02464 

002466 


buffer 


02465 

002465 


buffer- 

1 

02466 

000000 

buffer 

0 



'^15265 

A*17763 

-buffer*’ 

10 


000100 


,END begin 


SlZE*02467 

no error 

LINES 



pace: 25 


rOH'-'AT 


forhat 


A 015265 
4A 02404 
A\SWF.R 02405 
AS^II 02406 
5EGINJ 00100 

PUOCKS 02407 
PUfFCR 02466 
CA 000031 
CA10L8 01115 
CLOF 700004 
CLON 700044 
CLSF 700001 
CNTR 02413 
CNTRI 02414 
CNTR2 02415 
CONST! 02411 
CONST2 02412 
CPOINT 02410 
CRUF 01174 
DATAM 02367 
OATAS 02416 
DBCV 01227 
DONE 01267 
EEM 707702 
END 02373 
ERRORl 01044 
ERR0R2 01106 
ERRORS 01112 
EXPAND 02363 
EXPECT 02417 
FIFTH 00632 
FIRST 00263 
FOURTH 00452 
FWDhaC 02375 
GET 01202 
GUARD 02371 
HEREI 00565 
HERE2 00644 
HERE3 00743 
KRB 700312 
KSF 700301 
UAST 01007 
LEN 707704 
LOCK 02366 
LOOP 01127 
MAGCON 02463 
MARK 02364 
MASkI 02423 

MASK2 02424 
MASK3 02425 
MASK4 02426 
MASK5 02427 
mESAGE 01144 
'^ESSl 01276 
MESS10 01654 
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FOR^'.aT 


?■ R '' A T 


'‘ESSll ^1757 
MESS12 ^2f?32 
MESS13 ^2^565 
^E.SS14 025^77 
'^ESSIS 0211C 
MESS16 02120 
^£SS17 02130 
‘^ESSia 02140 
MESS19 02170 
MESS2 01326 
MESS20 02210 
MESS21 02221 
MESS22 02232 
MESS23 02243 
MESS24 02306 
MESS25 02332 
MESS3 01340 
MESS4 01407 
►^ESS5 01420 
MESS6 01433 
MESS7 01462 
MESS8 01504 
MISS9 01521 
HINUS4 02430 
MP10 01244 
M12 02421 
M260 02422 
M9 02420 
MEXT 00230 
NNN 02431 
NQRCON 02402 
number 02432 
O0VERS 02433 
ONE 02434 
OVER 01272 
PCF 700202 
PNTR 02435 
PNTRl 02436 
PNTR2 02437 
POINT 0244:. 
PREFIN 02370 
PSA 700204 
PS8 700244 
PSE 700201 
PCF 700102 
REONOH 02374 
RESEPC 02376 
PEVENO 02362 
PEVGRD 02365 
REVMRK 02372 
RRB 700112 
RSA 700104 
RSB 700144 
RSF 700101 
RUBOUT 02446 
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FOR"'AT 


Format 


SAVE ^2447 
SAVEl P245f’ 
SAVE2 72451 
SAVE3 72452 
SECOMD 70312 

SERNOM 72407 
SIXTH 00734 
stand 00223 
STOPGO 72400 
TALLY 512453 
TCF 700402 
TEMP 02454 
TEMi 02455 
TEN 02456 
TEST 0X232 
THIRD 00403 
THREE 02460 
TLS 700406 
TMESS3 00122 
TMESS4 00136 
TMCSS5 00151 
TMESS6 00160 
TMESS7 00167 
TMESS8 00177 
TMESll 00430 
TMCS23 01080 
TS7 700401 
TWO 02457 
TYPE 01166 
TYPOUT 01207 
UNIT 02461 
WAC 02401 
wC 000030 
hTMT 02377 
YYY 02462 
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format 


FORMAT 


wC 

CA 

'-EG I'. '^0100 

TMESS3 00122 
TMESSA 03136 
TMESS5 30151 
TMESS6 00163 
TMESS7 00167 
TMESS8 00177 
stand 00223 
NEXT 00233 
FIRST 30263 
SECOMO 00312 
THIRD 30403 
TMESll 00430 
FOURTH 00452 
HEREI 00565 
FIFTH 00632 
HERE2 30644 
SIXTH 00734 
HERE3 00743 
UAST 01007 
TMES23 01030 
ERROR! 01044 
ERR0R2 01106 
ERR0R3 01112 
CA10L8 01115 
LOOP 01127 
MESAGE 01144 
TYPE 01166 
CRtF 01174 
GET 01202 
TYPOUT 31207 
DBCV 01227 
TEST 01232 
MP10 01244 
done 01267 
over 31272 
‘^ESSl 31276 
MESS2 31326 
HESS3 31343 
0ESS4 01407 
MESS5 3142:^ 
^ESS6 31433 
'^ESST 31462 
HESS8 -^1504 
MESS9 31521 
‘^ESSia 01654 
'^ESSll 01757 
''.ESS12 32032 

^ESS13 32065 
•^£5314 32077 

HESS15 02113 
MESS16 32123 
*^£5517 3213 ^' 
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F nP''AT 


EDP-iAT 


■^ESSIB 

:^214 ’ 

*^E5S19 

0217? 

MESS22 

0221'" 

MESS21 

02221 

MESS22 

02232 

‘^ESS23 

^2243 

»^ESS24 

02306 

MESS25 

02332 

peveno 

32362 

EXPAND 

02363 

‘^ARK 

02364 

REVGRO 

02369 

LOCK 

02366 

OATAm 

02367 

PREFIN 

02370 

GUARD 

02371 

REVMRK 

02372 

END 

02373 

rednom 

02374 

fmohac 

02375 

RESERC 

02376 

WT^T 

02377 

STOPGO 

02400 

MAC 

02401 

NORCON 

02402 

SERNOM 

02403 

AA 

02404 

ANSWER 

02405 

ASKIl 

02406 

BLOCKS 

02407 

CPOINT 

3241? 

CONSTl 

02411 

C0NST2 

02412 

CNTR 

02413 

cntri 

02414 

CNTR2 

02415 

OATAS 

02416 

EXPECT 

02417 


0242? 

>^12 

32421 

y260 

02422 

MASKl 

02423 

yASK2 

32424 

MASKS 

02429 

MASK4 

02426 

MASKS 

02427 

M1NUS4 

02430 

nnn 

02431 

number 

?2432 

DBVERS 

02433 

ONE 

02434 

pntr 

02435 

onTRI 

02436 

PNTP2 

02437 

POINT 

3244'^ 



rOR'- AT 


roR-^AT 


9AGE ; 

^?> 1 

RUBOUT 

C’2446 


r'2447 

$Avei 

''2A5'' 

SAVE? 

?245l 

save:3 

02452 

TALLY 

02453 

TEMP 

02454 

TEMl 

02455 

TEN 

02456 

TWO 

02457 

three 

02460 

UNIT 

02461 

YYT 

02462 

MAGCON 

02463 

RUFFER 

02466 

A 

019265 

CLSF 

700001 

CUOF 

700004 

CUON 

700044 

rsf 

700101 

rcf 

700102 

R$A 

700104 

RRB 

700112 

rsb 

700144 

PSF 

700201 

PCF 

700202 

PSA 

700204 

PSB 

700244 

K5r 

700301 

krb 

700S12 

TSF 

700401 

TCF 

700402 

TUS 

700406 

EEM 

707702 

LEM 

707704 



